SST P  $MAINBLK       1       0       0      12       0
 LOC     0
 BGN 0,0,0
$MAINBLK ENT P,1,L3  $MAINBLK       1 1 1
 LDA 1,13
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,12
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDC I,1
 LOC    10
 STR I,1,48
 LDC I,2000
 STR I,1,56
 LOD I,1,48
 LOD I,1,56
 LEQ I
 FJP L5
L4 LAB
 LOD I,1,48
 LDC I,13
 MOD
 LOC    20
 STR I,1,52
 LOD I,1,48
 LDC I,13
 DVI
 STR I,1,44
 LOD I,1,52
 LDC I,7
 EQU I
 FJP L6
 LDA 1,13
 LOC    30
 CSP  SIO
 LOD I,1,44
 LDC I,12
 CSP  WRI
 LOD I,1,48
 LDC I,12
 CSP  WRI
 CSP  WLN
 CSP  EIO
L6 LAB
 LOD I,1,48
 LOC    40
 LOD I,1,56
 NEQ I
 FJP L5
 LOD I,1,48
 INC I,1
 STR I,1,48
 UJP L4
L5 LAB
 RET P
L3 DEF        60
 STP